home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / MATH / STAT / MATHTEST.PAS < prev    next >
Pascal/Delphi Source File  |  1990-08-05  |  2KB  |  63 lines
  1. program math_test;
  2.  
  3. uses
  4.    crt,math;
  5.  
  6. const
  7.      space = '               ';
  8.  
  9. var
  10.     deg, radian_angle,x : single;
  11.  
  12. begin
  13.     x := 1/3;
  14.     clrscr;
  15.     writeln(space,'        MATH TEST');
  16.     writeln('            expected                 actual');
  17.     writeln('            --------                 ------');
  18.     deg := 45.0;
  19.     radian_angle := deg_rad(deg);
  20.  
  21. { trig functions }
  22.     { tan answer should be 1.0}
  23.     writeln('tan         1.000',space,tan(radian_angle):10:3);
  24.     { secant answer should be 1.414}
  25.     writeln('secant      1.414',space,secant(radian_angle):10:3);
  26.     { cosecant answer should be 1.414}
  27.     writeln('cosecant    1.414',space,cosecant(radian_angle):10:3);
  28.     { cotan answer should be 1.000}
  29.     writeln('cotan       1.000',space,cotan(radian_angle):10:3);
  30.  
  31. { log functions }
  32.     { power answer should be 3.737 }
  33.     writeln('3.0**1.2    3.737',space,power(3.0,1.2):10:3);
  34.     { log10 answer should be 3.000 }
  35.     writeln('log10       3.000',space,log10(1000):10:3);
  36.     { logxy answer should be 9.966 }
  37.     writeln('logxy       9.966',space,logxy(1000,2):10:3);
  38.  
  39. { useful functions }
  40.     { dprod answer should be 0.333333333333333333 etc }
  41.     writeln('dprod       0.333333333333333',dprod(1/3,1.0):28:20);
  42.     { regular answer should be 0.333333343 etc }
  43.     writeln('regular     0.333333343 etc  ',x:28:20 );
  44.     { factorial answer should be 120 }
  45.     writeln('factorial 120.000',space,factorial(5):10:3 );
  46.  
  47. { some inverse functions }
  48.     { arccos answer should be 45.0 }
  49.     writeln('arccos     45.000',space,rad_deg(arccos(cos(radian_angle))):10:3 );
  50.     { arcsin answer should be 45.0 }
  51.     writeln('arcsin     45.000',space,rad_deg(arcsin(sin(radian_angle))):10:3 );
  52.     { arctan2 answer should be 45.0 }
  53.     writeln('arctan2    45.000',space,rad_deg(arctan2(tan(radian_angle),1.0)):10:3 );
  54.  
  55. { some hyperbolic functions }
  56.     { cosh answer should be 74.210 }
  57.     writeln('cosh       74.210',space,cosh(5.0):10:3 );
  58.     { sinh answer should be 74.203 }
  59.     writeln('sinh       74.203',space,sinh(5.0):10:3 );
  60.     { tanh answer should be 1.0 }
  61.     writeln('tanh        1.000',space,tanh(5.0):10:3 );
  62.  
  63. end.